snit::widget ButtonBox {

  hulltype ttk::frame
  option -align top
  option -borderwidth 0
  option -padding {0 0 0 0}

  variable nButtons 0

  constructor {args} {
    $self configurelist $args
    $hull configure -borderwidth $options(-borderwidth) -padding \
        $options(-padding)
    ttk::frame $self.frame
    pack $self.frame -side $options(-align)
  }

  method add {caption} {
    ttk::button $self.frame.$nButtons -text $caption
    pack $self.frame.$nButtons -side left
    incr nButtons
  }

}

